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MICROSOFT. 
COBOL Compiler 
Quick Reference Guide 


Notation 


COBOL reserved words— words that have preassigned meanings—are shown 
in ALL CAPITAL LETTERS. COBOL reserved words that are required in a 
given construction are UNDERLINED; reserved words not underlined are 
optional. 


Entries that must be supplied by the programmer are printed lower-case-and- 
hyphenated. 


[] Brackets enclose information that is optional in a program. 
TIERED 

Reserved words that are STACKED and enclosed in represent mutually 
LAYERED 

exclusive choices in a given construction. 

An ellipsis (...) indicates that the entry preceding it may be repeated. 


Language elements are aligned, according to the ANSI standard, in area A 
and area B. 


General Format for Identification Division 


IDENTIFICATION DIVISION 
PROGRAM-ID. program-name. 

[ AUTHOR. [comment-entry] ...] 
[INSTALLATION. [comment-entry] ...] 
[DATE-WRITTEN. [comment-entry] ...] 
[ DATE-COMPILED. [comment-entry] ...] 


[SECURITY. [comment-entry] ...] 


General Format for Environment Division 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. computer-name [WITH DEBUGGING MODE]. 


OBJECT-COMPUTER. computer-name 


WORDS 
, MEMORY SIZE integer ; CHARACTERS 
MODULES 


[ , PROGRAM COLLATING SEQUENCE IS alphabet-name] 


[SPECIAL-NAMES. 
[, PRINTER IS mnemonic-name] 


[, alphabet-name IS NATIVE 


STANDARD-1 
implementor-name 


[, CURRENCY SIGN IS literal] 
[, DECIMAL-POINT IS COMMA. ] 
[INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
{ file-control-entry } os 


[1-O-CONTROL. 


RECORD 
; SAME | SORT AREA FOR file-name-3 {, file-name-4 } ... |... 


SORT-MERGE 


General Format for File Control Entry 
FORMAT 1: 


SELECT file-name 


ASSIGN TO PRINTER 


AREA | 
; RESERVE integer | AREAS 


[; ORGANIZATION IS [LINE] SEQUENTIAL] 
[; ACCESS MODE IS SEQUENTIAL] 


[; FILE STATUS IS data-name]. 


FORMAT 2: 
SELECT file-name 


ASSIGN TO DISK 


AREA 
- RESERVE integer | AREAS 


; ORGANIZATION IS RELATIVE 


SEQUENTIAL [, RELATIVE KEY IS data-name-1] 
; ACCESS MODEIS 
\ RANDOM } 
DYNAMIC J , RELATIVE KEY IS data-name-1 


[: FILE STATUS IS data-name-2 }. 


FORMAT 3: 
SELECT file-name 


ASSIGN TO DISK 


- RESERVE meget | aes ] 
AREAS 


; ORGANIZATION IS INDEXED 


SEQUENTIAL 
; ACCESS MODE IS + RANDOM 
DYNAMIC 


; RECORD KEY IS data-name-1 


[; FILE STATUS IS data-name-2]. 


FORMAT 4: 
SELECT file-name 
ASSIGN TO DISK 


[SORT STATUS IS data-name-1]. 


General Format for Data Division 


DATA DIVISION. 
[FILE SECTION. 


[FD file-name 


- BLOCK CONTAINS [integer-1 TO ] integer-2 { RECORDS \] 
CHARACTERS 


Leer | 
“ 


- RECORD CONTAINS [integer-3 TO J] integer-4 CHARACTERS ] 


RECORD IS STANDARD 
; LABEL \ RECORDS ARE OMITTED 


data-name-1 
> VALUE OF FILE-ID IS | literal-1 


RECORD IS data-name-3[, data-name-4]... 
DATA \ RECORDS ARE 


een toe 
; LINAGE IS |linteger-5 LINES , WITH FOOTING AT |integer-6 


{ aeeer eee ame 
, LINES AT TOP \integer- 7 , LINES AT BOTTOM | integer-8 


[; CODE-SET IS alphabet-name ]. 
[record-description-entry] ...] ... 


[SD file-name 


[ ; RECORD CONTAINS [integer-1 TO] integer-2 CHARACTERS] 


RECORD IS 
; DATA { RECORDS ARE J data-name-1 [, data-name-2]... |. 


een 
; VALUE OF FILE-ID IS) literal-1 


[record-description-entry] ...] ... ] 
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[ WORKING-STORAGE SECTION. 


_ | 77-level-description-entry 
data-description-entry ] 
[ LINKAGE SECTION. 


77 deve desctistion entry | 
record-description-entry ] 


[ SCREEN SECTION. 
level-number [screen-name] 


[BLANK SCREEN] 


[LINE NUMBER IS [PLUS] integer-1] 
[COLUMN NUMBER IS [PLUS] integer-2] 
[BLANK LINE] 


[BELL] 


| {HIGHLIGHT} 
BLINK 


[ [VALUE] IS literal-1 ] 


HeGae R fi IS character-string 
PIC 


[ BLANK WHEN ZERO] 


ager RIGHT 
JUST 


[AUTO] 


[SECURE] 


‘eROM | 


literal-2 
identifier-1 


[USING identifier-3] 


IfTO dente 
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General Format for Data Description Entry 
~ FORMAT 1: 


{ data-name-1 } 
level-number { FILLER 


[ ; REDEFINES data-name-2] 


k { BIGTURE| IS muaectone{unl 
PIC 


COMPUTATIONAL 

COMP 

COMPUTATIONAL-3 
; [USAGE IS] } COMP-3 

DISPLAY 

INDEX 


[ [SIGNIS eae } [SEPARATE sHbele g 
TRAILING 


13 


[; OCCURS integer-1 TIMES 


ASCENDING | KEY IS data-name-4 [, data-name-5]... | ... 
DESCENDING 


[INDEXED BY index-name-1 [, index-name-2] ...] ] 
; {ane a eee LerT 
SYNC RIGHT 
; ie } RIGHT 
JUST 
[ ; BLANK WHEN ZERO] 


[ ; VALUE IS literal]. 


FORMAT 2: 


VALUE IS literal-1 [literal-2 ...] 


88 condition-name; ees ARE _ | literal-1 [ {THROUGH | er 
THRU 
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General Format for Procedure Division 
FORMAT 1: 


PROCEDURE DIVISION | ( YSING data-name-1 [, toma ed | 


CHAINING 


[ DECLARATIVES. 

{section-name SECTION [segment-number]. declarative-sentence 
[paragraph-name. [sentence] ...] ...}... 

END DECLARATIVES. ] 

{section-name SECTION [segment-number]. 

[paragraph-name. [sentence] ...]...}... 


FORMAT 2: 


PROCEDURE DIVISION | {yEING data-name-1 [, aia 


CHAINING 


{paragraph-name. [sentence] ...} ... 
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General Format for Verbs 
ACCEPT identifier 


ACCEPT identifier FROM 4 DAY 


ESCAPE KEY 


ZERO-FILL 
ACCEPT (position-spec) identifier [WITH SPACE-FILL 

LEF LIUSTIFY 

RIGHT-JUSTIFY 


TRAILING-SIGN 


PROMPT 
UPDATE 


LENGTH-CHECK 


AUTO-SKIP 
BEEP 


ACCEPT screen-name [ON ESCAPE imperative-statement] 
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DD an a ae identifier-2 | ... TO identifier-in [ROUNDED] 
literal-1 literal-2 


[; ON SIZE ERROR imperative-statement] 


ADD fico fier) : eenttier ; apcaiers | - 
literal-1 ~ | literal-2 literal-3 
GIVING identifier-m [ROUNDED] 
ON SIZE ERROR Taare Ceeceaennl 
ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 


CALL literal-1 [USING data-name-1 [, data-name-2] ...] 


CHAIN here } [USING identifier-2 ...] 
identifier-1 


CLOSE file-name-1 [WITH LOCK], file-name-2 [WITH LOCK]]... 
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COMPUTE identifier-1 [ROUNDED] 
=arithmetic-expression [; ON SIZE ERROR imperative-statement] 


DELETE file-name RECORD [; INVALID KEY imperative-statement] 


DISPLAY jecetiea E eat ee ... [UPON mnemonic-name] 


literal-1 , literal-2 
idéntifier 
DISPLAY { (position-spec) literal } ... LUPON mnemonic-name] 
ERASE 


DISPLAY screen-name 


DIVIDE { identifier-1 INTO identifier-2 [ROUNDED] 
literal-1 


[; ON SIZE ERROR imperative-statement] 
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DIVIDE ecu INTO ae} GIVING identifier-3 [ROUNDED] 
literal-1 literal-2 


[; ON SIZE ERROR imperative-statement] 


DIVIDE (icon ue BY Hee GIVING identifier-3 [ROUNDED] 
literal-1 literal-2 


[; ON SIZE ERROR imperative-statement] 


identifier 
EXHIBIT NAMED j¥ [position-spec] 4 literal ... LUPON mnemonic-name] 
ERASE 


EXIT [PROGRAM]. 


GO TO [procedure-name-1] 


GO TO procedure-name-1 [, procedure-name-2] ... , procedure-name-n 


DEPENDING ON identifier 
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lF condition; { statement-1 ; ELSE statement-2 20 
NEXT SENTENCE ; ELSE NEXT SENTENCE 


INSPECT identifier-1 TALLYING 
face eae eee} INITIAL fidentifier-4 
, I\dentifier-2 FOR ¢, LEADING literal-1 AFTER literal-2 
CHARACTERS 


INSPECT identifier-1 REPLACING 


CHARACTERS BY aie eal { See INITIAL eee 
literal-4 AFTER literal-5 


ALL 
, , LEADING 74, { identifier-5 BY identifier-6 BEFORE ) INITIAL { identifier-4 a 
FIRST literal-3 literal-4 AFTER literal-5 


INSPECT identifier-1 TALLYING 


eee } { identifier-3 7 
, Identifier-2 FOR q , LEADING literal-1 { BEFORE \ INITIAL ota 
CHARACTERS AFTER literal-2 


REPLACING 


CHARACTERS BY f identifier-6 { BEFORE INITIAL neereer 
literal-4 AFTER literal-5 


ALL 
, 4 LEADING : ieee en BY § { identifier-6 { BEFORE | INITIAL { identifier-7 = 
FIRST literal-3 literal-4 AFTER literal-5 


MERGE file-name-1 ON { ASCENDING KEY data-name-1[, data-name-2] ... 
DESCENDING 


ON { ASCENDING erga cata data-name-4]... | ... 
DESCENDING 


USING file-name-2, file-name-3 [, file-name-4] ... 


OUTPUT PROCEDURE IS section-name-1 DE: tes } sseiieaing 
THRU 


GIVING file-name-5 


MOVE Hil TO identifier-2[, identifier-3] ... 
literal 


MULTIPLY identifier-1 } BY identifier-2 [ROUNDED] 
literal-1 


[; ON SIZE ERROR imperative-statement] 
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MULTIPLY eee | BY {identifier-2) GIVING identifier-3 [ROUNDED] 
literal-1 literal-2 | 


[; ON SIZE ERROR imperative-statement] 


INPUT  file-name-1 [, file-name-2] ... 
OUTPUT file-name-s [, file-name-4] ... 
OPEN } I1-O file-name-5 [, file-name-6] ... 
EXTEND file-name-7 [, file-name-8] ... 


PERFORM procedure-name-1 oa cee ed 
| THRU : 


PERFORM procedure-name-1 THROUGH procedure-name-2 {recutie tt TIMES 
THRU integer-1 


PERFORM procedure-name-1 hier sce an UNTIL condition-1 
THRU 
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PERFORM procedure-name-1 | | sommchaaahs 
THRU 


identifier-3 
VARYING (eee | FROM  index-name-2 
index-name-1 literal-1 


BY ee a UNTIL condition-1 
literal-3 


{ dentiier> identifier-6 
AFTER | index-name-3 } FROM 4 index-name-4 
literal-3 


BY cue UNTIL condition-2 
literal-4 


Fonte | identifier-9 
AFTER (| index-name-5) FROM ¢ index-name-6 
literal-5 


aS Fen UNTIL condition-3 
literal-6 : 
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READ file-name RECORD [INTO identifier] [; AT END imperative-statement] 
READ file-name [NEXT] RECORD [INTO identifier] | 

[; AT END imperative-statement] 
READ file-name RECORD [INTO identifier] [; INVALID KEY imperative-statement] 
READ file-name RECORD [INTO identifier] | 

[; KEY IS data-name] 

[; INVALID KEY imperative-statement] 
READY TRACE 
RELEASE record-name [FROM identifier] 
RESET TRACE 
RETURN file-name RECORD [INTO identifier] ; AT END imperative-statement 
REWRITE record-name [FROM identifier] 


REWRITE record-name [FROM identifier] [; INVALID KEY imperative-statement] 


& 
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identifier-2 


26 
SEARCH identifier-1 | VARYING { index-name-1 | [; AT END imperative-statement-1 ] 


> WHEN condition-1 ee anes 
NEXT SENTENCE 


f WHEN condition-2 { See ace eeuay | Mi} 
NEXT SENTENCE 


SEARCH ALL identifier-1 [; AT END imperative-statement-1] 


identifier-3 
data-name-1 IS EQUAL TO literal-1 
> WHEN IS = arithmetic-expression-1 
condition-name-1 
! identifier-4 
data-name-2 | IS EQUAL To| literal-2 
ND IS = arithmetic-expression-2 


condition-name-2 


imperative-statement-2 
NEXT SENTENCE 


ep) 
mM 
and 


identifier-3 
eno [, identifier-2] a TO } index-name-3 
index-name-1 J [, index-name-2] integer-1 


SET  index-name-4_ [, index-name-5] ... { UP BY ames } 
integer-2 


SORT file-name-1 ON ASCENDING KEY data-name-1[, data-name-2]... 
DESCENDING 


ASCENDING } 
ON |) DESCENDING J KEY data-name-3[, data-name-4]... | ... 


INPUT PROCEDURE IS section-name-1 FEE en 7 
THRU 


USING file-name-2 [, file-name-3] ... 


OUTPUT PROCEDURE IS section-name-3 ‘ieee } section-name-4 | 
( THRU 


GIVING file-name-4 
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IS EQUAL TO 
IS = 
START file-name | KEY J ISGREATERTHAN \ data-name 
iS 
IS NOT LESS THAN 
IS NOT < 


[; INVALID KEY imperative-statement] 


STRING fas ight , identifier-2 identifier-3 
literal-1 , literal-2 ... DELIMITED BY 4 literal-3 
SIZE 


+ ee a , identifier-5 | ... DELIMITED BY { identifier-6 
literal-4 , literal-5 literal-6 % 


SIZE 


INTO identifier-7 [WITH POINTER identifier-8] 


[; ON OVERFLOW imperative-statement] 
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SUBTRACT freee , identifier-2 | ... FROM { identifier-m 
literal-1 , literal-2 literal-m 


GIVING identifier-n [ROUNDED] 
[; ON SIZE ERROR imperative-statement] 


UNSTRING identifier-1 
identifier-2 
DELIMITED BY [ALL] } literal-1 [ OR [ALL] eer | - 
literal-2 


INTO identifier-4 [, DELIMITER IN identifier-5] [, COUNT IN identifier-6] 


[, identifier-7 [, DELIMITER IN identifier-8] [, COUNT IN identifier-9] ].. 
[WITH POINTER identifier-10] [TALLYING IN identifier-1 1] 


[; ON OVERFLOW imperative-statement] 
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file-name-1 [, file-name-2] ... 


INPUT 
USE AFTER STANDARD { EXCEPTION } PROCEDURE ON 4 OUTPUT 
ERROR 0 
EXTEND 


WRITE record-name [FROM identifier-1] 


caret PINE j 
{ BEFORE | ADVANCING integer LINES 
AFTER 
PAGE 


; AT END-OF-PAGE imperative-statement | 
EOP 


WRITE record-name [FROM identifier] [; INVALID KEY imperative-statement] 
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General Format for Conditions 


RELATION CONDITION: 


IS [NOT] GREATER THAN 
identifier-1 IS [NOT] LESS THAN identifier-2 
literal-1 IS [NOT] EQUAL TO literal-2 
arithmetic-expression-1 IS [NOT] > arithmetic-expression-2 
index-name-1 IS [NOT] < index-name-2 

IS [NOT] = 


CLASS CONDITION; 


identifier IS [NOT] NUMERIC 
ALPHABETIC 


SIGN CONDITION: 


POSITIVE 
arithmetic-expression IS [NOT] NEGATIVE 
ZERO 


31 


CONDITION-NAME CONDITION: 
condition-name 

SWITCH-STATUS CONDITION: 
condition-name 

NEGATED SIMPLE CONDITION: 
NOT simple-condition 


COMBINED CONDITION: 


condition tore aan na: 
OR 


ABBREVIATED COMBINED RELATION CONDITION 


relation-condition | AND | [NOT] [relational-operator] ae it 
OR 
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Miscellaneous Formats 
QUALIFICATION: 


data-name-1 ar data-name-2 | ... 
eae ar 
OE 
IN 


paragraph-name | {\ section- ae 


SUBSCRIPTING: 


ee at (subscript-1[, subscript-2[, subscript-3] ] ) 
condition-name 


INDEXING: 


jidatarame ( index-name-1 [{+} ee 
condition-name literal-1 


, | index-name-2 [ {+} literal-4] , { index-name-3 [ {+ 
literal-3 literal-5 


oe ot 
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IDENTIFIER: FORMAT 1 


data-name-1 | { ra ane ... [(subscript-1 [, subscript-2 
IN 
[, subscript-3]])] 
IDENTIFIER: FORMAT 2 


index-name-1 [{+} literal-2] 
data-name-1 OF ) data-name-2 | ... | ( 
IN literal-1 


index-name-2 [{+}  literal-4] index-name-s [{+} literal-6] 
; ) 
literal-3 literal-5 | | 


SCREEN POSITION 
ie integer-1] ines tio ) 


integer-2 integer-4 


General Format for Copy Statement 


COPY file-name 
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i-O Permitted 


OPEN Option in Effect 
ACCESS Procedure | 
MODE IS Statement Input Output 


fo) 


READ X 

WRITE X 
SEQUENTIAL REWRITE 

START X 

DELETE 


READ X 

WRITE X 
RANDOM REWRITE 

START 

DELETE 


READ X 

WRITE X 
DYNAMIC REWRITE 

START X 

DELETE 


KKK KKK KK KOK KK KOK 


X indicates the statement is permissible. CLOSE is permissible under all conditions. 


35 


File Status Settings 


Status 
Successful 
Completion 
(O) 

At End(1) 


Invalid 
Key(2) 


Permanent 
Error(3) 


Special 
Cases(Q) 


No Further 
Description 
(0) 


Data Status Data Item RIGHT Character 


Structure 
Error 


(1) 


Duplicate 
Key 
(2) 


No Record 
Found 
(3) 


Disk Space 
Full 
(4) 
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File Status '21’ arises if ACCESS MODE is SEQUENTIAL when WRITEs do 
not occur in ascending sequence for an indexed file, or if the key is altered 
prior to REWRITE. In an OPEN INPUT or OPEN I-O statement, a File Status 
of ‘30’ means ‘File Not Found.’ File Status ‘91’ occurs on an OPEN INPUT or 
OPEN I-O statement for a relative or indexed file whose structure has been 
destroyed (for example, by a system crash during output to the file). When 
this status is returned on an OPEN INPUT, the file is considered to be open, 
and READs may be executed. On an OPEN I-O, however, the file is not 
considered to be open, and all I-O operations fail. The other settings are 
self-explanatory. 


Note that “Disk Space Full’ occurs with Invalid Key (2) for indexed and 
relative file handling, whereas it occurred with “Permanent Error” (3) for 
sequential files. 
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Permissible MOVE Operands 


Receiving Operand In MOVE Statement 


Source Numeric ‘Numeric Numeric Alphanumeric 

Operand Integer Non-integer Edited Edited Alphanumeric Group 
Numeric 

Integer OK OK OK OK(A) OK(A) OK(B) 
Numeric 

Non-integer OK OK OK OK(B) 
Numeric 

Edited OK OK OK(B) 
Alphanumeric 

Edited OK OK OK(B) 
Alphanumeric OK(C) OK(C) OK(C) OK OK OK(B) 


Group OK(B) OK(B) OK(B) OK(B) OK(B) | OK(B) 


(A) Source sign, if any, is ignored. 


(B) If the source operand or the receiving operand is a Group Item, the 
move is considered to be a Group Move. 


(C) Source is treated as an unsigned integer; source length may not 
exceed 31. 


Note: 


No distinction is made in the compiler between alphabetic and alphanumeric; 
one should not move numeric items to alphabetic items and vice versa. 
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_ MICRSSOFT. 


MICROSOFT CORPORATION 
10700 NORTHUP WAY 
BELLEVUE, WASHINGTON 98004 __ 


Part No. OOE11 ~ 


MICRESOFT. 
EaselBox 


How to get the most out of your EaselBox. 


The clear plastic EaselBox can be used to 
store your Microsoft diskettes and docu- 
mentation, helping you to keep track of 
all components in a particular package. 


With the top folded down, the 
EaselBox converts to a com- 
pact bookstand to hold your 

training guide. or reference 
manual open while you're 
using the diskette. 


The top of the EaselBox can be 
removed to form a separate 
bookstand, while the box itself is 
used for storage. 


To remove the top, fold it down to form 
a bookstand. There are two hinges that 
fasten the top to the box. The side of 
each hinge that is attached to the box 
can be easily detached: just lift it gen- 
tly with your finger. 


' To reattach the top to the box, align the 
hinges with the slots and push them 
gently into place. 


Microsoft is a trademark of Microsoft Corporation. 


MICR&SSOFT. 


Please complete and return this registration card = = 
before you use your new Microsoft product for oS Registration 
the first time. Register now to insure your eligibil- 
ity for these valuable user benefits: Ca rd 
Microsoft Help Hotline 
Microsoft Product Replacement Plan 
Microsoft Product Upgrade Plan chara eR ia at 
Please print all information. Thank you. Registration Number 


Courtesy Title Mr..] Ms.] Mrs.L_] MissL_] Dr. L] 


Name 
Home _ First Middle Initial Last 


Address 
Street 


City State Zip 


Business 
Address 


Company Name 

Street 

City State Zip 
Your Title 


Telephone (optional) —_( ) ( ) 


Home Business 
To which address do you wish your mail sent? [_]Home Address [_] Business Address 


Date of product purchase / i lf 
Month Day — Year 
How long have you owned the computer on which you will use this product? 
[_] Less than 1 mo. L_] 1-6 mos. L_] 7-12 mos. L_] More than 12 mos. 
Please check all applications for which you use your computer. 
L_] Financial analysis (spreadsheet) [_] Accounting | L_] Recreation 
[_] Word processing L_] Scientific/engineering uses L_] Self-improvement 
|_| Data or file management L_] Data communications L_] Other (please describe) 
L_] Business graphics L_] Project scheduling 


Comments 
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Please use this card when ordering a replace- Prod uct 

ment for a defective Microsoft product. Mail it 

with the defective component(s) to the address Replacement 
below. To validate a replacement request for a , 

product under limited warranty, include proof-of- Order Card 

purchase. A product returned without proof-of-purchase is not eligible for warranty service. 
lf the product warranty has expired, or if the product does not qualify for warranty service, 
you will be charged a service fee. No out-of-warranty service will be performed prior to 
receipt of payment. You may include credit card information if you would like to charge the 


service. You may call Microsoft Customer Service at (206)828-8088 to inquire about the 
current charge for the service required. 


Name 
(Please include all information required for delivery including company name, mailstop, 
and apartment or suite number, if applicable.) 
Address 
Street 
City State Zip Country 
Phone ( ) Telex 


Registration number on disk 
Name of product as it appears on package 
Date of product purchase / / 


Reason for return 


lf the warranty has expired, | authorize you to charge my credit card. Charges vary. The 
minimum service charge is $25.00. [-] American Express  []Visa — [_] MasterCard 


Credit card number Rae Bele Bae Expiration date 


Authorized signature 
Mail to: Customer Service Department 
Microsoft Manufacturing 
13221 S.E. 26th Street 
Bellevue, WA 98005 


Three Important 
Reasons to 
Register Your 
Product Now 


' Microsoft 
The help you need, whatever your application. We Hel D Hot! ne 


want you to get the maximum performance from your Microsoft software. If you have any 
technical problem, we'll be glad to help. However, most of the time you'll find the answer 
right in your product documentation, so please take a look at that first. You might also give 
your Microsoft dealer a call. If you’re still puzzled, gather all the information pertinent to the 
problem and call our Product Support staff at (206)828-8089. They'll be ready to give you 


the support you need to get the most from your Microsoft software. 


A Microsoft 
Product 
Replacement 


Plan If you need it, when you need it. In spite of rigorous 
testing and the highest quality-control standards, even Microsoft products sometimes need 
replacement. lf your product proves defective, it will be replaced at no charge during the 
warranty period, and for a reduced price thereafter. However, you must provide us with 


proof-of-purchase and return the defective component to us. 


lf you think you may have a defective product, you'll probably want to call our help hotline 


at (206)828-8089 before mailing the product to us. When you have confirmed that a problem 
exists, follow the instructions outlined in the attached product replacement card. Mail the 
card, the defective component, your proof-of-purchase, and full details about the problem 


you are experiencing to: 


Customer Service Department 
Microsoft Manufacturing 
13221 S.E. 26th Street 
Bellevue, WA 98005 


Or call Microsoft Customer Service at (206)828-8088 for more information. 


Microsoft 
Product 
lt keeps your program up to date. Your Microsoft soft- UJ pg rad Plan 


ware product uses the most advanced technology available today. But we continually 
improve our software, making it even more powerful and easy to use. You can take advan- 
tage of our ongoing research—if you send in your registration card today! 

As a registered Microsoft user, you receive announcements about major improvements 
in your program. These announcements give you the cost of the update and ordering 
procedures. In most cases the enhanced version is available to you at a reduced price. Only 
registered owners receive these special update notices. (Microsoft offers updates only for its 
productivity tools and languages. Recreational software is not eligible for updates. Owners of 
recreational products do not receive update announcements.) 


Just Register Now. 


? Microsoft MB The disk on which your Microsoft program is recorded 
is warranted to be free of defects in materials and work- 
software manship under normal use for a period of 90 days from 


Lj mited date of product purchase. 

Warranty @ This limited warranty applies to the original purchaser 
only and to the recording medium (disk) only, not to the 

information encoded on it. This warranty covers disks included in Microsoft hardware/ 


software packages, such as the Microsofte SoftCard® system products and the 
Microsofte RAMCard@ memory board for the IBMo PC. 


@ Microsoft hardware components include only Microsoft 
circuit cards and the mechanical mouse. IH ardware 


if a hardware component is included with your ee 
Microsoft product, the component is warranted Li m ited 


_ to be free of defects in materials and work- 
manship under normal use for a period of one Warranty 


year from date of product purchase. 


@ This limited warranty applies to the original product purchaser only and to the hardware 
component only, not to the application for which it is used. 


Disclaimer of The Microsoft programs are licensed solely on an 


= =a: ‘‘as is’’ basis. The entire risk as to their quality and 
Liability for performance is assumed by the purchaser. MICRO- 
SOFT CORPORATION DOES NOT GUARANTEE, 
Use and the WARRANT, NOR MAKE ANY REPRESENTATION 


Results of Use REGARDING THE USE OF, OR THE RESULTS OF 

THE USE OF, THE PROGRAMS IN TERMS OF COR- 
RECTNESS, ACCURACY, RELIABILITY, CURRENTNESS, OR OTHERWISE; AND THE PUR- 
CHASER RELIES ON THE PROGRAMS AND THE RESULTS SOLELY AT HIS OR HER OWN 
RISK. Microsoft Corporation assumes no liability for any direct, indirect, incidental or 
consequential, special or exemplary damages, regardless of its having been advised of the 
possibility of such damages. 


A full description of the limited warranty for hardware and software and the terms of the above disclaimer of 
liability are in the License Agreement that accompanies this booklet. 


Microsoft, Multiplan, SoftCard, and RAMCard are registered trademarks and MS-DOS and The High Perform- 
ance Software are trademarks of Microsoft Corporation. 
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Microsoft Cobol is the version best suited to microcomputers. 


It is tailored to the one-on-one microcomputer environment. 


Microsoft COBOL meets ANSI and GSA standards. 


You can access thousands of existing COBOL applications. 


-MS-COBOL has the features you need for business programming. 


COBOL, the dominant language for business applications pro- 
gramming on mainframe and minicomputers, also can be used 
successfully on the microcomputer. The Microsoft» COBOL 
Compiler is an extensive implementation of COBOL that takes full 
advantage of the microcomputer environment. It combines the 
standard features of COBOL that runs on large computers with | 
superior interactive features you need when working with a 


microcomputer. 


The Microsoft COBOL Compiler offers these powerful features: 
entry of data during program execution, advanced screen handling, 
interactive debugging, segmentation of large programs and sim- 
plified menu and forms configuration. 

The General Services Administration (GSA) of the U.S. govern- 


‘ment has validated MS1m-COBOL as a low intermediate imple- 


mentation of the ANSI ‘74 standard and has approved its use by 


_ federal government installations. Microsoft COBOL also has many 


features that are standard for higher levels of validation. You can 
transfer your COBOL programming skills on large all iaa atl to 
microcomputers. 

As the chosen language for Business programming, a wealth of 
applications have been written with COBOL. Since Microsoft 
COBOL is based on the same ANSI standard used to develop COBOL 
programs on large computers, you can convert these programs 

to the microcomputer environment. | 
1. It provides a structured environment that Police nies with 


business data. 


2. It handles large numbers (up to 18 digits) with the high level of 
precision you need for accounting and other business applications. 
3. It features four types of data files so you can match data storage | 
to your application. The files are indexed sequential (ISAM), 
sequential, line sequential and relative. 

4. Advanced screen handling and a symbolic interactive debugger 
allow you to create and debug applications easily and efficiently. 
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